.DO External 
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>>>>>>>>>>>>>>>>>>>>>>>> 



> 

> Module: Command _Dr i ver 

> 

> This module controls the way in which commands received by 

> the Host are executed. It's main responsibility is to determine 

> whether a command string is protected by a check byte < the 

> original Prof i le commands are not > and then decode the command 

> and pass control over to the correct driver routine to 

> execute the command. Fill exception handling at this level is 

> controlled by the individual command routines. 
> 

> PORCEDURE Read-ID 

> PROCEDURE Read_SprTbl 

> PROCEDURE ProJ-lrite 

> FUNCTION WrJCommon : BOOLEAN 

> PROCEDURE Pro_WrUer 

> FUNCTION UrUer JCommon : BOOLEflN 
> 



;>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO External 
. LSTON 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



> 

> Procedure: Read- ID 

> 

> This procedure is responsible for letting the host system 

> know what type of device it is talking to. 

> 

> Inputs: { none > 

> 

> Output: { none } 

> 

> Rigor ithm: 

>■ 

> BEGIN 

> ClrNormStat 

> Zero_RdBuf 

> ID.DeviceName : = DeviceName 

> I D . Dev i ceNumber := Dev i ceNumber 

> ID. Revision := RevisionNumber 

> ID. Capacity := Capacity 

> ID.BiockSize := BlockSize 

> Move4< Statusflrray, Status > 

> Goto Rd_Leave 

> END 



; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



D_Read_ID: 

Call ClrNormStat 



Ld 
Call 



Wrk_l o+$ft, *D_R_1 D_Response 
ftck_Read 



Read_ID: 



Read_iD_Lp: 



Ld 


! r2 , « . H 1 BVTE . Zero_RdBuf 


Ld 


Ir3,*.L0WBVTE. 2ero_RdBuf 


Laf 1 


Bank-Cat i 


Ld 


1 -J" 1, £t II 1 DUTC DO, . + f i 

!rL,*.n!tJYIt . HfcfUTTeri 


Ld 


! rD , * . LOWBYTE . noli T T er l 


Ld 


! rE , * . H ! BVTE . Dev i cePar ams 


Ld 


! rF , * . LOWBVTE . Dev i cePar ams 


Ld 


\ r 1 f *Dev_Parm_Leng th 


Ldc 


!rG,§! !rE 


Lde 


ff! \rL, !ru 


1 new 


i irL 


! new 


I ! rfc. 


Djnz 


•r^Read-IDJLp 


Clr 


!r0 


Clr 


Irl 


Ld 


!rE,*.HIBVTE. SprCount 


Ld 


! rF, * . LOWBVTE . SprCount 


Lde 


!r2,§HrE ;qet SpareCount 


Cai 1 


Move! _3 



I new ! ! rE ; po i n t to BadB I ock conn t 
Lde !r2,e!IrE 
Call hovel_3 

Ld !r2,*.HIBVTE. FmtOffset 

Ld !r3,«. LOWBVTE. FmtOffset 

Ld !rE, IrC 

Ld !rF, !rD 

Caff riove4_B0 

Jp RdJ_eave 

t1ovel_3: Ld !r3,*3 ;noue 3 bytes 

Ld !r4,Rp 
Move I _3JLp : Lde i § !! rC, @ ! r4 

Djnz lr3.Hovel_.3_Lp 

Ret 

. LSTOFF 

.DO Externa! 
. LSTON 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Read_SprTbf 

> 

> This procedure is responsible for passing the spare 

> table on to the host. Mote that this information is 

> sent in it's raw form and that it is up to the host 

> to correctly interpret it. 

> 

> Inputs: { none } 



Output: { none } 
Algorithm: 



;> BEGIN 

;> RBufferl := Spareflrray 

;> Hove4C Statusflrray, Status > 

;> Clr_BsyC Statusflrray > 

;> END 

;> 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

.LSTON 
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.FIN 

D-ReadJSprTbl : 

Call CirNormStat 

Ld Wrk_ I o+$fi, *D_R J3pr_Response 

Cal I Rek_Read 

ReadJSprTbi: Ld !r2,«.HIBVTE. Spr_To_RBuf 
Ld !r3,*.L0WBVTE. Spr_To_RBuf 
Call BankJCall 

Jp RdJLeaMe 

. LSTOFF 

.DO External 

. LSTON 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

■ > 

;> Procedure: ProJ-lrite 

; > 

;> This procedure emulates the ProFi le Write command 

• > 

; > Inputs: { none } 

• > 

;> Outputs: { none } 

■ > 

;> Algorithm: 

; > 

;> BEGIN 

;> CirNormStat 

; > LoadLog i ca I B I ock < Pr o J_og _0 f f se t > 

;> Gei_Type< Midget > { check logical block bounds } 

;> Seek_Type := Recess JO ff set 

;> OverLap< User-Type, Ur iieJOp, I4ri te_Response, BlockNumber, > 

;> IF < BlkStat.SprCode = BadBlock > 

; > THEN 

;> BlockNove< Buf2firray, WBuffer 1-1 > 

;> DataJExJHandleK SpareBlock > 

;> ELSE 

;> IF NOT< Wr_Common > 

;> THEN DataJExJHandleK WrJCommon . Er-rorCode > 

; > RdJLeaMe 
;> END 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 



.Page 
.FIN 



Pro JWr i te : 



Pro_Wr_BB : 



ProWr_1 : 

Pro J-irJEx i t : 



NrJLeave : 



Pro_WrJSetUp: 



Ld l4rk_lo+$R,*Mr_Response 

Cal I Pro_Hr_SetUp 

Tm BlkStat,*BJBIoek ; IF BadBlock 

Jr Z,ProWr_1 

Call Wr_BBlock 

Jr Ur_Leave 

Cal I WrJCommon 

Jr Nz,Ur_Leave 

Ca 1 1 Da taJE x_Hand I er 

Jp RdJLeave 

Page 

Call ClrNormStat 

Call Get_HrJData 

Ld !rG,*Pro_LogJDffset 

Call Ld-LgclBlk ; Log i ca I B I ockNumber := 

Ld !r8,*Widget 

Ld !r2,«.HIBYTE. Get_Type 

Ld !r3,».LQI4BVTE. Get_Type 

Ca 1 1 BankJCa 1 1 ; check b I ock bounds 

Ld Seek_Type, *flccess JO f f set 

Ld Ba ta_Ty pe , «User -Type 

Or DiskS tat, #Ur_J0p 

Ld !r2,*.HIBVTE. GverLap 

Ld lr3,».L0MBVTE. OverLap 

Call Bankroll 

Tm DiskStat,*GffsetJQn 

Jr Nz,PJ4JS_End 



Cal I P.eSeek 
PJ4_S_End: Ret 

Mr_BB!ock: 



Ld 


!r2,*.HlBVTE. WrBuf_ToJBuf2 


Ld 


!r3,*.LGUB'/rE. UrBuf_To_Buf2 


Cal I 


BankJCa 1 1 


Ld 


i r Q f #Error+ExJSprB 1 ock 


Cal I 


Bata_Ex_Handler 


Ret 




. LSTOFF 




.DO 


External 


LSTON 




.Page 





>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: MrJCommon 

> 

> This function handles ail of the write specific details 

> for all of Midget's write commands. 

> 

> Inputs: { none } 

> 

> Outputs: 

> MrJCommon : BOOLEAN { zero flag is set if data exception } 

> ErrorCode. Error : BOOLEAN { IrO/Bit 7 } 

> ErrorCode. Type : 7 BITS { !rO/Bits 6:0 } 
> 

> Local Variables: 

> Retry : BVTE { Ir5 } 

> ErrorCode : BVTE { !r4 > 

> 

> Algorithm: 

> 

> BEGIN 

> ErrorCode . Error := False 

> IF NGT< MriteBlock ) 

> THEN 

> ErrorCode . Error := True 

> ErrorCode . Type := Undetermined 

> IF Recovery 

> THEN 

> IF ServoError OR NoHeaderFound 

> THEN 

> ErrorCode . Error := False 

> Retry := 4 

> REPEAT 

> THEN 

> ServoRecovery 

> Retry := Retry - 1 

> UNTIL N0T< Retry = ) OR WriteBiock 

> IF N0T< MriteBlock > 

> THEN 

> ErrorCode . Error := True 

> ErrorCode . Type := Undetermined 

> IF ServoError 

> THEN 

> SetStatus< ByteO, Status_ServoError > 

> Abort 

> IF NoHeaderFound 

> THEN 

> MoveBlock< Buffer2, MriteBuffer ) 

> ErrorCode . Type := SpareBlock 

> Mr i te_Common := N0T< ErrorCode . Error ) 

> END 

:> 

;>>>>>>:>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 
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.FIN 



UrJCommon : 



Ld 
Ld 



Scr Reg2 , * . H I BVTE . MB I kFence ; check for hos t over f I ow 
ScrReg3, * . LOMBVTE . MB! kFence 



Ld !r2,*.HIBYTE. Chk_PassWord 

Ld !r3,*.L0UBYTE. Chk_Passl4ord 

Call BankJCali 

Jr Nz,l»lr_£mnJQk 

Ld !rO,*Q ;byte zero 

Ld !r t,*WrBuf_JOR ; buffer over run 

Call SetStatus 

Call Abort 

Mr J&nn JOk : Push ! r4 

Or DiskStat,*UrjQp 

Clr !r4 

Call MriteBlock 

Jr Nz ,Ur _Gmn_End 

Ld !r2,*.HIBYTE. !4rBuf_To_Buf2 

Ld !r3,*.L0UBYTE. HrBuf_To_Buf2 

Call BankJCaff 

Ld !r4,*Error ;ErrorCode := Error , Undetermined 

Tm Excpt_Stat , ^Recovery ; IF Recovery THEN . . . 

Jr Z^Wr-Cmn-End 

Ld !r5,*4 ; Retry := 4 

Wr_£mn_Lp: Ld !r2,#.HIBVTE. SruoRcury 

Ld !r3,*.L0WBVTE. SrvoRcvry 

Call BankJCall 

Ld !r2,*.HIBVTE. Buf2_To_WrBuf 

Ld !r3,».L0WBYTE. Buf2_ToJ4rBuf 

Call BankJCaM 

Call Uri ieBIock 

Clr !r4 

Jr Nz,UrJCmn_End 

D j nz ! r5 1 Wr_jCron_Lp 

Ld !r4,*Error 

Ur JCmn JSer uo : Tm WrS ta 1 1 »WrSr voErr 

Jr Z,UrJCmn_Hdr 

Clr !r0 ;Byte 

Ld ir1,#Stat_JSrvo 

Call SetStatus 

Call Abort 

Nr_Cmn_Hdr: Tm yrStat,*WrNoHdrFnd 

Jr Z,UrJCmn_End 

Ld !r4,*Error+Ex_Hdr-Spr 

Wr_£mn_End : Ld !r0, !r4 

Pop !r4 ; retrieve register from stack 

Tern !rO,*WrError 

Jp Bank_Ret 



.LSTOFF 

.DO External 



. LSTOM 
.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : ProJMrUer 



This procedure emulates the ProFiie I4ri te/Ueri fy 
command . 

Inputs: { none } 

Outputs: { none > 

ft I gor i thm : 

BEGIN 
eirNonriStat 

LoadLogicai Block < Pro_LogjQf fset > 

Get_Type< Widget ) { check logical block bounds } 

Seek_Type := flccessJOf fset 

Over Lap < User_Type, MriteJDp, MrUer_Response, BlockNumber, > 
IF < BlkStat.SprCode = BadBlock > 
THEN 

BiockNovet: Buf2firray, !4Buffer1-1 > 
Data_Ex_Handler< SpareBlock ) 



IF NOT< MrUerJCommon > 

THEN Data_Ex_Handler< MrUerJCommon . Error Code > 
Rd-Leaue 
END 



> 
> 
> 

> 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 
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.FIN 



SysJJrU : 

Fro JWrUer : 
ProJJrU_2: 



Ld Mrk-lo+^fl^SysJWrUer-Resp 
Jr Pro_WrUer_2 



Ld I4rk_ I o+$fi, «UrUer_Response 

Call Pro_Wr_SetUp 

Ld tr2,*.HIBVTE. WrBuf_To_Buf2 

Ld !r3,*.L0WBYTE. WrBuf_ToJBuf2 

Call Bank-Call 



ProHrU_1 



MrUerJLeave : 



Tm BlkStat,*BJ3lock ; IF BadBlock 

Jr Z,ProMrU_t 

Call Mr J3B I ock 

Jr 1-lrUerJLeave 

Ca! I MrUer_Common 

Jr NZjMrUerJLeave 

Call Data_ExJHandier 

Jp fkLLeave 



. LSTOFF 

.DO External 
. LSTOti 
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;>>>>>>>>>>>>>>>> » >>>>>>>>>>>>>>>> 

;> Function: WrUer JCommon 

; > 

;> This function has the responsibility of making certain < within 

;> reasonable limits ) that when a block is written to the disk that 

;> it can also be read back. WriteUerify comes in two flavors: 

;> Conservative and NotConservative. The attempt here is to make 

;> the WriteUerify routine attractive to end users as well as provide 

;> a means for the controller to have a high degree of confidence 

;> in writing some of it's more important blocks. 
; > 

;> Inputs: { none } 

;> 

;> Outputs: 

;> UrUer -Common : BOOLEAN { zero flag set if operation failed } 

;> 

; > fl I gor i thm : 

;> 

;> BEGIN 

;> IF WrJCommon 

; > THEN 

;> DiskS tat. WrJQp := False 

; > RdJCommon 

; > I F < Rd JDommon . Error Type = Ex_HdrBad ) 

; > THEN Rd -Common . ErrorType : = Ex JHdrSpr 

; > ELSE 

;> IF < RdJCommon . ErrorType = Ex_BadBiock > 

;> THEN RdJCommon . ErrorType := ExJSprBlock 

;> END 

- *> 
/ ■ 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.00 internal 
. LSTON 
Page 
.FIN 

WrUerJCommon : 



Cai 1 


Ex tPushJUec tor 


Or 


DiskS tat, *MrJ0p 


Cai 1 


WrJCommon 


Jr 


Z,WrUer_Ret 


Rnd 


DiskStat,»$FF-WrJOp 


Cai 1 


ReadjCommon 


Jr 


Nz,WrUer_fiet 


Ld 


!rt,!rG 


find 


!r1,*$7F ;mask off error bit 


Cp 


!r1,*Ex_HdrBad 


Ld 


\ r2, *Error+Ex_HdrSpr 


Jr 


Z,MrUjChgEx 



Cp 



!r!,*Ex_BadBiock 





Ld 


! r2, *Error+Ex_SprB i ock 




Jr 


Nz,WrUer_Ret 


HrV JChg_Ex: 


Ld 


!rQ, !r2 


WrUer_Ret: 


Push 


!r0 




Cal 1 


ExtPop_Ueetor 




Pop 


!r0 




Tern 


!rO,*Error ;set error condition 




•Jp 


Bank_Ret 
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